Profile of (eval 267)[Sub/Quote.pm:3]

Filename	(eval 267)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 243 statements in 570µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
62	7	3	302µs	543µs	JSON::Schema::Modern::Document::canonical_uri
1	1	1	13µs	35µs	JSON::Schema::Modern::Document::BEGIN@8
1	1	1	8µs	17µs	Method::Generate::Accessor::_Generated::BEGIN@44.117
1	1	1	5µs	5µs	Method::Generate::Accessor::_Generated::BEGIN@13.116

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $coerce_for_canonical_5furi = ${$_[1]->{"\$coerce_for_canonical_5furi"}};
3	1	0s			my $default_for_canonical_5furi = ${$_[1]->{"\$default_for_canonical_5furi"}};
4	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
5	1	0s			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
6	1	0s			my $isa_check_for_canonical_5furi = ${$_[1]->{"\$isa_check_for_canonical_5furi"}};
7					package JSON::Schema::Modern::Document;
8	2	49µs	2	57µs	# spent 35µs (13+22) within JSON::Schema::Modern::Document::BEGIN@8 which was called: # once (13µs+22µs) by Sub::Quote::_clean_eval at line 8 no warnings 'closure'; # spent 35µs making 1 call to JSON::Schema::Modern::Document::BEGIN@8 # spent 22µs making 1 call to warnings::unimport
9					# spent 543µs (302+241) within JSON::Schema::Modern::Document::canonical_uri which was called 62 times, avg 9µs/call: # 15 times (206µs+241µs) by JSON::Schema::Modern::Document::BUILD at line 145 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm, avg 30µs/call # 15 times (57µs+0s) by JSON::Schema::Modern::Document::BUILD at line 168 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm, avg 4µs/call # 14 times (7µs+0s) by JSON::Schema::Modern::Document::traverse at line 178 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm, avg 500ns/call # 8 times (17µs+0s) by JSON::Schema::Modern::add_schema at line 188 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm, avg 2µs/call # 8 times (12µs+0s) by JSON::Schema::Modern::add_schema at line 196 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm, avg 2µs/call # once (2µs+0s) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 115 of JSON/Schema/Modern/Document/OpenAPI.pm # once (1µs+0s) by JSON::Schema::Modern::Document::OpenAPI::traverse at line 76 of JSON/Schema/Modern/Document/OpenAPI.pm sub canonical_uri {
10					($_QUOTED,$_UNQUOTED) if 0;
11					# BEGIN quote_sub PRELUDE
12					package Method::Generate::Accessor::_Generated;
13					# spent 5µs within Method::Generate::Accessor::_Generated::BEGIN@13.116 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 18 BEGIN {
14	1	1µs			$^H = 1762;
15	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
16	1	5µs			%^H = (
17					);
18	1	77µs	1	5µs	} # spent 5µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@13.116
19					# END quote_sub PRELUDE
20	62	51µs			Carp::croak("canonical_uri is a read-only accessor") if @_ > 1;
21					exists $_[0]->{"canonical_uri"} ?
22					$_[0]->{"canonical_uri"}
23	62	147µs			: do {
24	8	2µs			my $value = do {
25	8	20µs			local $Method::Generate::Accessor::CurrentAttribute = {
26					init_arg => undef(),
27					name => "canonical_uri",
28					step => "coercion",
29					};
30	8	4µs			(my $_return),
31					(my $_error), (my $_old_error = $@);
32	8	9µs			(eval {
33	8	25µs	16	227µs	($@ = $_old_error), # spent 143µs making 8 calls to JSON::Schema::Modern::Document::__ANON__[/Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm:39], avg 18µs/call # spent 84µs making 8 calls to JSON::Schema::Modern::Document::__ANON__[/Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern/Document.pm:38], avg 10µs/call
34					($_return =
35					$coerce_for_canonical_5furi->($default_for_canonical_5furi->($_[0]))),
36					1
37					} or
38					$_error = CORE::ref $@ ? $@ : "coercion for \"canonical_uri\" failed: ".$@);
39	8	3µs			($@ = $_old_error),
40					(defined $_error and CORE::die $_error);
41	8	9µs			$_return;
42					}
43					;
44	42	158µs	26	40µs	# spent 17µs (8+9) within Method::Generate::Accessor::_Generated::BEGIN@44.117 which was called: # once (8µs+9µs) by Sub::Quote::_clean_eval at line 44 do { no warnings "void"; package Type::Tiny; ((((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) && (do { local $_ = $value; not defined $_->fragment }))) or Type::Tiny::_failed_check($isa_check_for_canonical_5furi, "__ANON__", $value, "attribute_name","canonical_uri","attribute_step","isa check","mgaca","0","varname","\$self->{\"canonical_uri\"}"); $value }; # spent 17µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@44.117 # spent 9µs making 1 call to warnings::unimport # spent 8µs making 8 calls to Mojo::URL::fragment, avg 1µs/call # spent 4µs making 8 calls to Scalar::Util::blessed, avg 500ns/call # spent 2µs making 8 calls to UNIVERSAL::isa, avg 250ns/call
45	8	3µs			$_[0]->{"canonical_uri"} = $value
46					}
47					}
48	1	1µs			$$_UNQUOTED = \&canonical_uri;
49					}
50	1	4µs			1;
51
52					;